home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO25B.LSP < prev    next >
Text File  |  1986-10-20  |  1KB  |  34 lines
  1. ;   This LISP file is for use with AutoCAD Ver. 2.18.
  2. (Defun C:Raa ()
  3.        (Setvar "CMDECHO" 0)
  4.        (Setq A (Getvar "Snapang"))
  5.        (Setq B (Getvar "Orthomode"))
  6.        (Setq C (Getvar "Gridmode"))
  7.        (Setq P1 (Getpoint "\nFrom point: "))
  8.        (Prompt "\nTo point: ")
  9.        (Command "LINE" P1) (Setq P2 (Getpoint))
  10.        (Prompt "\nTo point: ")
  11.        (Setvar "Snapang" (Angle P1 P2))
  12.        (Setvar "Orthomode" 1)
  13.        (Command "" "LINE" P1 P2)
  14.        (Setq P3 (Getpoint))
  15.        (Command "" "LINE" P2 P3 (Polar P3 (Angle P2 P1)
  16.                                (Distance P2 P1)) P1 "")
  17.        (Setvar "Snapang" A)
  18.        (Setvar "Orthomode" B)
  19.        (Setvar "Gridmode" C)
  20. )
  21.  
  22. (Defun C:Paa ()
  23.        (Setvar "CMDECHO" 0)
  24.        (Setq P1 (Getpoint "\nFrom point: "))
  25.        (Prompt "\nTo point: ")
  26.        (Command "Line" P1)
  27.        (Setq P2 (Getpoint))
  28.        (Prompt "\nTo point: ")
  29.        (Command "" "LINE" P1 P2)
  30.        (Setq P3 (Getpoint))
  31.        (Command "" "Line" P2 P3 (Polar P3 (Angle P2 P1)
  32.                                (Distance P2 P1)) P1 "")
  33. )
  34.